\ resources 05.3.21 NAB

needs DataMgr

module resources

: OpenResDB
( creatr-id. type. -- DbOpenRef. )
  >r >r  >r >r DmModeReadOnly
  r> r>  r> r>
  DmOpenDatabaseByTypeCreator ;

public:

\ Open a resource db.
\ Leaves the resdb open, read-only.

: use-resources ( creatr-id. type. -- )
  OpenResDB ?DmErr 2drop ;

end-module
